home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / cadence.arc / VOL1NO4.ARC / AUTONUM.LSP next >
Encoding:
Text File  |  1986-09-22  |  658 b   |  19 lines
  1. (defun c:AUTONUM ()
  2. (setvar "cmdecho" 0)
  3. (if (null txtht) (setq txtht (* 0.125 (getvar "ltscale"))))
  4. (setq pt1 (getpoint "\nSelect starting point: "))
  5. (setq n1 (getint "\nEnter first number: "))
  6. (setq n2 (getint "Enter last number: "))
  7. (setq inc (getint "Enter increment: "))
  8. (setq drctn (getint "Enter 1 for hor, 2 for vert, 3 for angle: "))
  9. (setq vfeed (getreal "Enter distance between numbers: "))
  10. (setq hfeed vfeed)
  11. (if (= drctn 1) (setq vfeed 0))
  12. (if (= drctn 2) (setq hfeed 0))
  13. (while (<= n1 n2)
  14.      (command "text" "c" pt1 txtht "0" n1)
  15.      (setq pt1 (list (+ hfeed (car pt1)) (+ vfeed (cadr pt1))))
  16.      (setq n1 (+ n1 inc))
  17. )
  18. )
  19.